﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class Products
  Inherits System.Web.UI.Page


  <WebMethod()> _
Public Shared Function ManejoProducts(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      Dim ProductsTA = New NorthWindTableAdapters.ProductsTableAdapter
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, ProductsTA.Adaptador)
    End If
    Return Contrato
  End Function

  <WebMethod()> _
Public Shared Function ManejoCategories(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      Dim CategoriesTA = New NorthWindTableAdapters.CategoriesTableAdapter
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, CategoriesTA.Adaptador())
    End If
    Return Contrato
  End Function

  <WebMethod()> _
Public Shared Function ManejoSuppliers(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      Dim SuppliersTA = New NorthWindTableAdapters.SuppliersTableAdapter
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, SuppliersTA.Adaptador())
    End If
    Return Contrato
  End Function

End Class
